فرستادن پیام کوتاه با ویژوال بیسیک

توجه : یه کتاب گرفتم : 211 نکته برای برنامه نویسان ویژوال بیسیک

ابتدا یک پروژه استاندارد باز کنید و سپس یک ماژول هم به اون اضافه کنید

و 4 تا TextBox و 4 تا Label و 2 تا Command به فرم بیافزایید

و بعدش نام TextBox ها رو مثل شکل قرار بدید و نام command1 رو btnSend بزارید

label ها رو هم دلخواه قرار بدید حالا این کدها رو هم تو فرمتون کپی کنید

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Sub btnSend_Click()

On Error Resume Next

btnSend.Enabled = False

MsgBox (SendMessage(txtusername.Text, txtpassword.Text, txtNumber.Text, txtMessage.Text))

btnSend.Enabled = True

End Sub

Private Sub Form_Load()

txtusername.Text = "User@host.com"

End Sub

حالا این کدها رو هم تو ماژولتون کپی کنید

 

Public Function SendMessage(username As String, password As String, _

destination As String, message As String)

Dim xmlstring As String

xmlstring = ") & "?> " & _

"<Request xmlns:xsi=" & Chr(34) & "http://www.w3.org/2001/XMLSchema-instance" & Chr(34) & " xsi:noNamespaceSchemaLocation=" & Chr(34) & "http://schema.2sms.com/1.0/0410_RequestSendMessage.xsd" & Chr(34) & " Version = " & Chr(34) & "1.0" & Chr(34) & ">" & _

"<Identification>" & _

"<UserID>>" & _

"<Password>" & password & ">" & _

"Identification>" & _

"<Service>" & _

"<ServiceName>SendMessage>" & _

"<ServiceDetail>" & _

"<SingleMessage>" & _

"<Destination>" & destination & ">" & _

"<Text>>" & _

"SingleMessage>" & _

"ServiceDetail>" & _

"Service>" & _

"Request>"

'open connection to server and send

Dim xmlrequest As MSXML2.XMLHTTP

Set xmlrequest = New MSXML2.XMLHTTP

xmlrequest.Open "POST", "http://www.2sms.com/xml/xml.jsp", False

xmlrequest.setRequestHeader "content-type", "text/xml"

xmlrequest.send xmlstring

'get the response back

response = xmlrequest.responseText

'set up DOM to parse

Dim xmlresponse As MSXML2.DOMDocument30

Set xmlresponse = New MSXML2.DOMDocument

xmlresponse.async = False

xmlresponse.resolveExternals = False

xmlresponse.validateOnParse = False

On Error Resume Next

xmlresponse.loadXML response

'pull out relevant variables from response

javaresult = (xmlresponse.getElementsByTagName("Result").Item(0).Text)

errorCode = (xmlresponse.getElementsByTagName("ErrorCode").Item(0).Text)

errorreason = (xmlresponse.getElementsByTagName("ErrorReason").Item(0).Text)

messageid = (xmlresponse.getElementsByTagName("MessageID").Item(0).Text)

If errorCode = "00" Then

SendMessage = javaresult

Else

If errorreason = "" Then

SendMessage = "Message Failed - Unknown Error"

Else

SendMessage = "Message FAILED. (Reason: " & errorreason & ")"

End If

End If

End Function

بچه ها من خودم تست نکردم ولی فکر کنم باید تو یه سایتی ثبت نام کنید

حالا بریم سراغ ولتمتر برای بچه های الکترونیک

یه پروژه استاندارد درست کنید و سپس 2 تا Radio button و 1 دونه Textbox و از قسمت کامپوننت ها

با زدن Ctrl + T ابزار Microsoft Comm Control 6.0 رو انتخاب و در اخر هم یک Command به فرمتون اضافه کنید

Radio 1 = optEnable

Radio 2 = optstop

text = txtVolts

cmd = cmdexit

MSComm = MSComm1

حالا این کدها رو تو فرمتون کپی کنید

 

Option Explicit

Private fEnable As Boolean

Private Sub cmdExit_Click()

If MSComm1.PortOpen = True Then

MSComm1.PortOpen = False

End If

End

End Sub

Private Sub Form_Load()

MSComm1.InputLen = 0

MSComm1.CommPort = 1

MSComm1.Settings = "9600,N,8,1"

End Sub

Private Sub optEnable_Click()

fEnable = True

Do Until fEnable = False

DoEvents

Dim BytesToRead As Integer

Dim DataIn As Variant

MSComm1.PortOpen = True

BytesToRead = 1

Do

DoEvents

Loop Until MSComm1.InBufferCount = BytesToRead

DataIn = MSComm1.Input

txtVolts.Text = Asc(DataIn) * 0.0196 & " Volts DC"

MSComm1.PortOpen = False

Loop

End Sub

Private Sub optStop_Click()

fEnable = False

End Sub

حالا برنامه رو اجرا کنید و باید از طریق درگاه کام یه ولتاژ دلخواه رو اعمال کنید

اموزش برنامه تبدیل عدد به زمان برای کارهای مولتی مدیا فوق العاده کاربردی

ابتدا یک فرم درست کنید و بعد دوتا TextBox قرار بدید و این کدها رو تو فرمتون کپی کنید

نکته : اینکه TextBox 1 برای وارد کردن عدد مورد نظر شماست

Private Sub Text1_LostFocus()

Dim isec As Integer

isec = Val(Text1.Text)

Dim breaksec

breaksec = Str$(Int(isec / 60)) & " ÏÞíÞå æ " & Str$(isec Mod 60) & " ËÇäíå"

Text2.Text = breaksec

نظرات شما عزیزان:

موضوعات مرتبط: آموزش ، ،
برچسب‌ها: